Week 7 Weekly Assesment Technical Skills

Below is the set up for the R coding.

knitr::opts_chunk$set(echo = TRUE)
library(dplyr)
library(plotly)
library(ggplot2)

The impact of COVID-19 on Australian Domestic Travel

To investigate the impact of COVID-19 on Australian Domestic Travel, I first obtained data from the Bitre website which provides the number of flights within each domestic route. Below is the code to clean the data and get it ready to compose the DV.

routesdata <- read.csv("routesdata.csv")
byMonth <- na.omit(routesdata %>% 
  mutate(YM = as.Date(sprintf("01-%d-%02d", Year, Month), "%d-%Y-%m"), 
         Revenue = as.numeric(gsub(",", "",Revenue))) %>%
  group_by(YM))
byMSum <- byMonth %>%
  summarise(AvgRev = mean(Revenue))

Below is a visualisation clearly indicating the change in Domestic Travels for the past two years.

Figure 1: Average Number of Domestic Flights each Month

The dramatic drop in 2020 is as expected, and surprisingly, in July 2022, the number of domestic travel has started to “return to normal”.